home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / 17d2.dir / 00001.ls next >
Encoding:
Text File  |  1999-04-02  |  1.4 KB  |  56 lines
  1. on startMovie
  2.   global qtChan, gKnobSprite
  3.   puppetSprite(46, 1)
  4.   set the locH of sprite 46 to the mouseH
  5.   set the locV of sprite 46 to the mouseV
  6.   qtChan = 11
  7.   sprite(qtChan).volume = 256
  8.   preLoad(qtChan - 1)
  9.   sprite(13).visible = 0
  10.   set the mouseDownScript to EMPTY
  11.   set the mouseUpScript to EMPTY
  12.   gKnobSprite = 26
  13.   setUpKnob()
  14. end
  15.  
  16. on idle
  17.   global gCursorReady
  18.   if gCursorReady = 1 then
  19.     cursor(200)
  20.     checkCursors()
  21.     set the locH of sprite 46 to the mouseH
  22.     set the locV of sprite 46 to the mouseV
  23.     updateStage()
  24.   end if
  25. end
  26.  
  27. on checkCursors
  28.   global gMagCursor
  29.   set the castNum of sprite 46 to the number of member "curs1"
  30.   if rollOver(6) then
  31.     set the castNum of sprite 46 to the number of member "hotCursor"
  32.   end if
  33.   if rollOver(7) then
  34.     set the castNum of sprite 46 to the number of member "hotCursor"
  35.   end if
  36.   if rollOver(8) then
  37.     set the castNum of sprite 46 to the number of member "hotCursor"
  38.   end if
  39.   if rollOver(9) then
  40.     set the castNum of sprite 46 to the number of member "curs1"
  41.   end if
  42.   if rollOver(25) then
  43.     set the castNum of sprite 46 to the number of member "hotCursor"
  44.   end if
  45.   repeat with i = 33 to 35
  46.     if rollOver(i) then
  47.       set the castNum of sprite 46 to the number of member "hotCursor"
  48.     end if
  49.   end repeat
  50.   repeat with i = 40 to 42
  51.     if rollOver(i) then
  52.       set the castNum of sprite 46 to the number of member "hotCursor"
  53.     end if
  54.   end repeat
  55. end
  56.